home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
loanapp.exe
/
LOANF5.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
13KB
|
391 lines
VERSION 2.00
Begin Form Form5
BackColor = &H00808080&
ClientHeight = 2655
ClientLeft = 270
ClientTop = 2100
ClientWidth = 8880
ControlBox = 0 'False
Height = 3060
Left = 210
LinkMode = 1 'Source
LinkTopic = "Form5"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2655
ScaleWidth = 8880
Top = 1755
Width = 9000
Begin CommandButton Command3
Caption = "Cancel"
Height = 300
Left = 4995
TabIndex = 19
Top = 2145
Width = 3000
End
Begin CommandButton Command1
Caption = "OK"
Height = 300
Left = 885
TabIndex = 18
Top = 2145
Width = 3000
End
Begin PictureBox Picture6
Height = 900
Left = 5685
ScaleHeight = 870
ScaleWidth = 3120
TabIndex = 5
Top = 1035
Width = 3150
Begin VBedit BEditF5
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 6
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 210
TabIndex = 17
Top = 330
Version = 268435458
Width = 2895
End
Begin Label Label11
Caption = "$"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 270
Left = 30
TabIndex = 24
Top = 495
Width = 165
End
Begin Label Label6
Caption = "Total (a+b):"
Height = 210
Left = 45
TabIndex = 14
Top = 45
Width = 1065
End
End
Begin PictureBox Picture5
Height = 900
Left = 3270
ScaleHeight = 870
ScaleWidth = 2310
TabIndex = 4
Top = 1035
Width = 2340
Begin VBedit BEditF5
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 480
Index = 5
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 270
TabIndex = 16
Top = 345
Version = 268435458
Width = 1890
End
Begin Label Label10
Caption = "$"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Left = 120
TabIndex = 23
Top = 495
Width = 165
End
Begin Label Label5
Caption = "(b) Improvement Costs:"
Height = 225
Left = 45
TabIndex = 13
Top = 45
Width = 2040
End
End
Begin PictureBox Picture4
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 3120
TabIndex = 3
Top = 1035
Width = 3150
Begin VBedit BEditF5
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 480
Index = 4
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 210
TabIndex = 15
Top = 345
Version = 268435458
Width = 2895
End
Begin Label Label9
Caption = "$"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Left = 30
TabIndex = 22
Top = 495
Width = 150
End
Begin Label Label4
Caption = "(a) Present Value:"
Height = 225
Left = 30
TabIndex = 12
Top = 45
Width = 1560
End
End
Begin PictureBox Picture3
Height = 900
Left = 5415
ScaleHeight = 870
ScaleWidth = 3390
TabIndex = 2
Top = 60
Width = 3420
Begin VBedit BEditF5
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 3
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 330
TabIndex = 11
Top = 330
Version = 268435458
Width = 2925
End
Begin Label Label8
Caption = "$"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Left = 150
TabIndex = 21
Top = 480
Width = 180
End
Begin Label Label3
Caption = "Amount of Existing Liens:"
Height = 240
Left = 45
TabIndex = 8
Top = 45
Width = 2235
End
End
Begin PictureBox Picture2
Height = 900
Left = 1920
ScaleHeight = 870
ScaleWidth = 3390
TabIndex = 1
Top = 60
Width = 3420
Begin VBedit BEditF5
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 2
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 300
TabIndex = 10
Top = 345
Version = 268435458
Width = 2925
End
Begin Label Label7
Caption = "$"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 300
Left = 135
TabIndex = 20
Top = 465
Width = 180
End
Begin Label Label2
Caption = "Original Cost:"
Height = 210
Left = 75
TabIndex = 7
Top = 75
Width = 1305
End
End
Begin PictureBox Picture1
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 1770
TabIndex = 0
Top = 60
Width = 1800
Begin VBedit BEditF5
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 1
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 9
Top = 330
Version = 268435458
Width = 1710
End
Begin Label Label1
Caption = "Year Acquired:"
Height = 225
Left = 45
TabIndex = 6
Top = 45
Width = 1290
End
End
End
Sub BEditF5_LostFocus (Index As Integer)
If (Index = 4) Or (Index = 5) Or (Index = 6) Then
BEditF5(6).Text = LTrim$(Str$(Val(BEditF5(4).Text) + Val(BEditF5(5).Text)))
End If
End Sub
Sub Command1_Click ()
MainRec.D.D1 = Form5.BEditF5(1).Text
MainRec.D.D2 = Form5.BEditF5(2).Text
MainRec.D.D3 = Form5.BEditF5(3).Text
MainRec.D.D4 = Form5.BEditF5(4).Text
MainRec.D.D5 = Form5.BEditF5(5).Text
MainRec.D.D6 = Form5.BEditF5(6).Text
UpdateLabelD
Form5.Hide
End Sub
Sub Command3_Click ()
Form5.Hide
End Sub
Sub Form_Load ()
Form5.Left = 300
Form5.Top = (Screen.Height - Form5.Height) / 2
End Sub
